Select Distinct
  Left(NewFolder, 25),
  ArtistPerson.Name,
  Album.Released,
  Album.Title,
  TitleFolder,
  Mid(NewFolder, posB8 + 1) As LastFolder
From
  (Select
    ArtistPerson.Name,
    Album.Released,
    Album.Title,
    Album.Released + ' - ' + Album.Title As TitleFolder,
    Left(AudioFileLink.Folder, Len(AudioFileLink.Folder) - 1) As NewFolder,
    InStr(1, AudioFileLink.Folder, '\') As posA1,
    InStr(posA1 + 1, NewFolder, '\') As posA2,
    InStr(posA2 + 1, NewFolder, '\') As posA3,
    InStr(posA3 + 1, NewFolder, '\') As posA4,
    InStr(posA4 + 1, NewFolder, '\') As posA5,
    InStr(posA5 + 1, NewFolder, '\') As posA6,
    InStr(posA6 + 1, NewFolder, '\') As posA7,
    InStr(posA7 + 1, NewFolder, '\') As posA8,
    posA1 As posB1,
    IIF(posA2 > posB1, posA2, posB1) As posB2,
    IIF(posA3 > posB2, posA3, posB2) As posB3,
    IIF(posA4 > posB3, posA4, posB3) As posB4,
    IIF(posA5 > posB4, posA5, posB4) As posB5,
    IIF(posA6 > posB5, posA6, posB5) As posB6,
    IIF(posA7 > posB6, posA7, posB6) As posB7,
    IIF(posA8 > posB7, posA8, posB7) As posB8
  From
    (((Track Inner Join
    Album On Track.AlbumID = Album.AlbumID) Inner Join
    AudioFileLink On Track.TrackID = AudioFileLink.TrackID) Inner Join
    ArtistAlbumLink On Album.AlbumID = ArtistAlbumLink.AlbumID) Inner Join
    ArtistPerson On ArtistAlbumLink.ArtistPersonID = ArtistPerson.ArtistPersonID
  Where
    Track.Index = 1)
Where
  Album.Title Not Like '%?%' And
  Album.Title Not Like '%:%' And
  Album.Title Not Like '%.' And
  Album.Title Not Like '%/%' And
  Album.Title Not Like '%\%' And
  Album.Title Not Like '%>%' And
  Album.Title Not Like '%<%' And
  Album.Title Not Like '%"%' And
  Album.Title Not Like '%*%' And
  TitleFolder <> Mid(NewFolder, posB8 + 1) And
  Name <> '(Putumayo)' And
  Name <> '(Multiple Artists)' And
  NewFolder < 'M:\Music\Populair\ZZZZZZZ'
Order By
  Left(NewFolder, 25),
  ArtistPerson.Name,
  Album.Released
